home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 24 / 024.d81 / as tutorial (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  195 lines
  1. 100 goto1910
  2. 110 rem
  3. 120 rem
  4. 130 rem
  5. 140 dimw(99,2):lv=0
  6. 150 w(4,1)=33:w(4,2)=5:forb=6to13:w(b,1)=21:w(b,2)=55:next
  7. 160 w(82,1)=129:w(82,2)=250:w(50,1)=129:w(50,2)=250
  8. 170 w(99,1)=21:w(99,2)=250
  9. 180 w(1,1)=17:w(1,2)=50:sl$="                                       "
  10. 190 w(3,1)=65:w(3,2)=15:w(5,1)=85:w(5,2)=30:w(26,1)=129:w(26,2)=25
  11. 200 x=2:y=1:cl=13:ch=82
  12. 210 poke53281,12:poke53280,12:d=.:x1=.:x2=.:x3=.:ok=.
  13. 220 fort=54272to54295:poket,0:next:poke54296,15:iflv>5thenlv=5
  14. 230 ad=1*16+0:sr=15*16+2
  15. 240 poke54284,ad:poke54285,sr:poke54282,0:poke54281,255
  16. 250 goto1210
  17. 260 print"[144]";:rempoke53265,peek(53265)and239
  18. 270 poke53281,12:poke53280,12:d=.:x1=.:x2=.:x3=.:ok=.
  19. 280 x=2:y=1:cl=13:ch=82:n=n+1
  20. 290 ml=1:loadf$,8,1
  21. 300 ml=2:loadf$+"/c",8,1
  22. 310 ml=3:on n goto1310,1390,1500,1560,1630,1710,1770,1820
  23. 320 stop
  24. 330 ifa$="d"thenprint""a$;:goto420
  25. 340 ifasc(a$)>69andasc(a$)<78thenprint"[151]"a$;:goto420
  26. 350 ifa$="p"thenprint"[144]"a$;:goto420
  27. 360 ifa$="z"thenprint""a$;:goto420
  28. 370 ifa$="[210]"thenprint"[153]"a$;:goto420
  29. 380 ifa$="[163]"thenprint""a$;:goto420
  30. 390 ifa$="[209]"thenprint"[154]"a$;:goto420
  31. 400 print"[153]"a$;:ifa$=chr$(32)then65535
  32. 410 ifa$=chr$(13)then440
  33. 420 ci=asc(a$)-64
  34. 430 poke54283,w(ci,1):poke54280,w(ci,2):poke54283,abs(w(ci,1)-1):goto65535
  35. 440 next:close2:goto530
  36. 450 close2:ifst=64then530
  37. 460 print"[144]":forg=1to7:printsl$:next
  38. 470 poke53265,peek(53265)or16:print"  we're sorry...your file may not be"
  39. 480 print"loaded as commanded.  please check disk"
  40. 490 print"in drive and press fire to try again..."
  41. 500 print"or consult instruction manual.thank you":printsl$:print"[145]";left$(sl$,19);
  42. 510 ifpeek(56320)=127thenpoke646,abs(peek(646)-1):print"o[157]";:goto510
  43. 520 print"":forg=1to7:printsl$:next:goto260
  44. 530 ifx=2thenprint"[144]o":poke53265,peek(53265)or16:goto550
  45. 540 ifx=12thenprint"o":poke53265,peek(53265)or16
  46. 550 fort=54272to54295:poket,0:next:poke54296,15
  47. 560 ad=1*16+0:sr=15*16+2
  48. 570 poke54284,ad:poke54285,sr:poke54282,0:poke54281,255
  49. 580 ifpeek(56320)<>127thenj=peek(56320):goto620
  50. 590 q=peek(54272+(1023+x+(y*40))):poke54272+(1023+x+(y*40)),abs((q)-1):goto580
  51. 600 ifpeek(56320)=127andd<>2then600
  52. 610 j=peek(56320)
  53. 620 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then730
  54. 630 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)<5orpeek(x1+x2)=82then730
  55. 640 ifj=126thenx1=1023+x:x2=y-1:x3=x2*40:ifpeek(x1+x3)=1then730
  56. 650 ifj=125thenx1=1023+x:x3=(y+1)*40:ifpeek(x1+x3)=1orpeek(x1+x3)=32then730
  57. 660 ifj=119thenx1=1023+x+1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then730
  58. 670 ifj=123thenx1=1023+x-1:x2=y*40:ifpeek(x1+x2)=32orpeek(x1+x2)=99then730
  59. 680 ifj=111thenreturn
  60. 690 ifd<>2then600
  61. 700 ifd=2andsm=.thenj=126:goto730
  62. 710 ifsm=1then1140
  63. 720 goto600
  64. 730 ifd=2andj<>126thend=.:sm=.
  65. 740 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl
  66. 750 ifj=119thenx=x+1
  67. 760 ifj=123thenx=x-1
  68. 770 ifj=126theny=y-1
  69. 780 ifj=125theny=y+1
  70. 790 x3=1023+x+y*40:ch=peek(x3):cl=peek(54272+x3)
  71. 800 poke54283,.:poke54280,.
  72. 810 poke54283,w(ch,1):poke54280,w(ch,2):poke54283,abs(w(ch,1)-1)
  73. 820 ok=peek(x3)
  74. 830 ifch=3thench=5:cl=9
  75. 840 pokex3,15:pokex3+54272,0:ifok<>32andd<>1then600
  76. 850 ifok=2ord=2thend=2:goto1110
  77. 860 ifok=32thend=1:j=125:poke54283,21:poke54280,y*9:poke54283,20:goto730
  78. 870 ifch=99thend=0:goto600
  79. 880 x1=1023+x:x2=y*40:gosub1150:fort=65to73:pokex1+x2,t:forh=1to80:next:next
  80. 890 poke54283,0
  81. 900 ifok=3then940
  82. 910 ifok=19then940
  83. 920 x1=1023+x:x2=y*40:x3=x1+x2:pokex3,ch:poke54272+x3,cl
  84. 930 goto1160
  85. 940 on jp+1 goto960,990,1030,1070,950
  86. 950 end
  87. 960 ifok<>19then1160
  88. 970 ifjp=0thenjp=1:print"[147]you^may^advance^to^the^next^level[146]!"
  89. 980 f$="maze 2":lv=lv+1:forg=1to2500:next:goto200
  90. 990 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto860
  91. 1000 ifok<>19then1160
  92. 1010 print"[147]next^level"
  93. 1020 jp=2:forg=1to2500:next:f$="maze 3":lv=lv+1:goto200
  94. 1030 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto860
  95. 1040 ifok<>19then1160
  96. 1050 print"[147]next^level"
  97. 1060 jp=3:forg=1to2500:next:f$="maze 4":x=12:y=20:ch=1:cl=0:lv=lv+1:goto210
  98. 1070 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto860
  99. 1080 ifok<>19then1160
  100. 1090 print"[147]that's^it![146]":end
  101. 1100 lv=lv+1:jp=4:f$="maze 5":goto200
  102. 1110 ifpeek(x3-40)=32thenj=126:poke54283,21:poke54280,y*9:poke54283,20:goto600
  103. 1120 ifpeek(x3-40)=99thend=.:j=126:goto730
  104. 1130 j=peek(56320):ifj=119orj=123thensm=1:goto620
  105. 1140 j=111:goto680
  106. 1150 poke54283,129:poke54280,5:return
  107. 1160 poke646,abs(peek(646)-1):print" you"
  108. 1170 print"died":x=2:y=1:cl=13:ch=82
  109. 1180 x1=.:x2=.:x3=.:ok=.:d=.:goto530
  110. 1190 print"[147]you were lucky this time[146]!"
  111. 1200 f$="maze 1":lv=lv-1
  112. 1210 print"[147][153]  welcome to the all smiles tutorial [146]o"
  113. 1220 print:print"  i will guide you throgh a series of"
  114. 1230 print:print"mini-mazes that are similar to ones you"
  115. 1240 print:print" will be traveling through in the real"
  116. 1250 print:print"game where your life depends on knowing"
  117. 1260 print:print" how to play.  you are the [146]o.  you move"
  118. 1270 print:print"     with the joystick in port 2."
  119. 1280 print:print"  press the fire button to be tutored."
  120. 1282 print:print"  press space bar to play all smiles."
  121. 1284 gett$:ift$=" " then 1860
  122. 1290 ifpeek(56320)=127then1284
  123. 1300 f$="tut 1":gosub260
  124. 1310 print"";
  125. 1320 print"  you may walk on the green floor."
  126. 1330 print"  you may not pass through a brick wall"
  127. 1340 print"  try walking left and right"
  128. 1350 print"  try walking through a wall"
  129. 1360 print"  notice the sound produced when walking"
  130. 1370 print"  when you are done, press fire":gosub530
  131. 1380 f$="tut 2":goto260
  132. 1390 print"[153]";
  133. 1400 print"you may move up & down on black ladders"
  134. 1410 print"if there is a ladder above you, you may"
  135. 1420 print"  move up."
  136. 1430 print"if there is a ladder below you, you may"
  137. 1440 print"  move down."
  138. 1450 print"be careful of ladders that take you up,"
  139. 1460 print"  but won't take you down and vise-versa"
  140. 1470 print"press fire when you are done."
  141. 1480 gosub530
  142. 1490 f$="tut 3":goto260
  143. 1500 print"[153]";
  144. 1510 print"[153]you may move across the dark green
  145. 1520 [153]"  hand-over-hand bars."
  146. 1530 [153]"you may move left & right on them"
  147. 1540 [153]:[153]"press fire when you are finished.":[141]530
  148. 1550 f$[178]"tut 4":[137]260
  149. 1560 [153]"print";
  150. 1570 [153]"printyou may pass through the white doors"
  151. 1580 [153]"once the door has been passed through"
  152. 1590 [153]"  it turns into an impassable wall."
  153. 1600 [153]:[153]"press fire to continue"
  154. 1610 [141]530
  155. 1620 f$[178]"tut 5":[137]260
  156. 1630 [153]"print";
  157. 1640 [153]"printtry jumping onto the waitb."
  158. 1650 [153]"as you move upwards, you may move left &";
  159. 1660 [153]"  right onto platforms and such."
  160. 1670 [153]"experiment with the trampolines"
  161. 1680 [153]:[153]"press fire to go on."
  162. 1690 [141]530
  163. 1700 f$[178]"tut 6":[137]260
  164. 1710 [153]"print";
  165. 1720 [153]"printtry falling from the hand bars."
  166. 1730 [153]"notice you can fall long distances if";
  167. 1740 [153]"   you land on another hand bar."
  168. 1750 [153]:[153]"press fire after testing this out.":[141]530
  169. 1760 f$[178]"tut 7":[137]260
  170. 1770 [153]"print";
  171. 1780 [153]"printnow let's see what happens when you"
  172. 1790 [153]"  die."
  173. 1800 [153]"try jumping to your death."
  174. 1810 [153]"press fire when you are through dying":[141]530
  175. 1820 [153]"loadwould you like to play all smiles?"
  176. 1830 [153]"y/n"
  177. 1835 [161]t$:[139]t$[179][177]"y"[175]t$[179][177]"n"[167]1835
  178. 1837 [139] t$[178]"y"[167] 1860
  179. 1840 [151]53272,21
  180. 1850 [147]"hello connect",8:[128]
  181. 1860 [153]"loadnewcmdcmdcmd"
  182. 1870 [153]"load"[199](34)"all smiles"[199](34)",8"
  183. 1880 [153]"run";
  184. 1890 [151]198,5:[129]t[178]1[164]5:[151]630[170]t,13:[130]:[128]
  185. 1900 [128]
  186. 1910 [139]ml[178]1[167]300
  187. 1920 [139]ml[178]2[167]310
  188. 1930 [139]ml[178]3[167]260
  189. 1940 [139]ml[178]8[167]110
  190. 1950 [151]56334,[194](56334)[176]1:[151]53272,([194](53272)[175]240)[170]12
  191. 1960 [139][194](12288)[178]60[167]110
  192. 1970 ml[178]8:[147]"parts",8,1
  193. 1980 [129]i[178].[164]255:[129]j[178].[164]7:[161]#1,a$:[151]12288[170]j[170]i[172]8,[198](a$[170][199](.)):[130]